Міністерство науки і освіти України Національний університет “Львівська Політехніка” Інститут комп’ютерних наук та інформаційних технологій Кафедра ПЗ Звіт З лабораторних робіт №1,2,3 з курсу «Людино-машинні інтерфейси» Виконано Студент групи ПІ-2 Львів 2008 Тема: Створення макросів для MsWord Мета: Навчитись створювати макроси для прискорення роботи з MsWord. Завдання: Створити макрос для вирахування елементів матриці А за наступним правилом : А[i][j]=3*B[i][j]/Bmax .Ввід організовувати за допомогою InputBox, а вивід за допомогою MsgBox. Створити макрос який задає параметри для абзацу поточного документа. 3) Створити макрос, який додає користувацьке меню, а всі пункти стандартного меню приховує. Макрос має створити користувацьку панель та дві кнопки. Перша кнопка має змінювати стиль фрагменту тексту, інша – викликати помічника і продемонструвати роботу з ним. Теоретичні відомості

В об’єкт Document входять об’єкти Bookmarks Characters (Range) CommandBars Comments DocumentProperties Endnotes Fields Footnotes FormFields Frames Hyperlinks Indexes InlineShapes HorizontalLineFormat ListParagraphs Lists ListParagraphs Range ListTemplates ListLevels Font Paragraphs ProofreadingErrors (Range) Revisions ReadabilityStatistics Scripts Sections Sentences (Range) Shapes StoryRanges (Range Styles Subdocuments Tables TablesOfAuthoritiesCategories (TableOfAuthoritiesCategory) TablesOfAuthorities (TableOfAuthorities) TablesOfContents (TableOfContents) TablesOfFigures (TableOfFigures) Variables Versions Windows Words (Range) Сімейство Paragraphs представляє всі абзаци документа, сімейство Sentences – всі речення, Words – всі слова, а Characters – всі символи документа. В об’єктній моделі Office всі панелі інструментів і меню представлені об’єктами типу CommandBar. Всі об’єкти CommandBar програми об’єднані в сімейство CommandBars. Тексти макросів: Макрос 1: Dim A(4, 4) As Double Dim B(4, 4) As Integer Dim max As Integer Sub mas() Dim msg, msg1 As String For i = 0 To 3 Step 1 For j = 0 To 3 Step 1 msg = "Введіть елемент B[" & i + 1 & "][" & j + 1 & "]=": B(i, j) = InputBox(msg, "Введення масиву В:", 0) Next j Next i max = max_element(B()) msg = "масив A:" & vbCrLf For i = 0 To 3 Step 1 For j = 0 To 3 Step 1 A(i, j) = 3 * B(i, j) / max msg = msg & "A[" & i + 1 & "][" & j + 1 & "]=" & A(i, j) & " " msg1 = msg1 & "B[" & i + 1 & "][" & j + 1 & "]=" & B(i, j) & " " Next j msg = msg & vbCrLf msg1 = msg1 & vbCrLf Next i msg1 = msg1 & "max=" & max & vbCrLf msg = msg1 & msg MsgBox msg End Sub Public Function max_element(BB() As Integer) As Integer Dim max1 As Integer max1 = 0 For i = 0 To 3 Step 1 For j = 0 To 3 Step 1 If max1 < BB(i, j) Then max1 = BB(i, j) Next j Next i max_element = max1 End Function Sub My_macro() ' ' My_macro Макрос ' Макрос создан 01.11.2008 Customer ' mas() End Sub Макрос 2: Attribute VB_Name = "NewMacros1" Dim number As Integer Dim num As Integer Sub my_macros_for_formatting_paragraph() Attribute my_macros_for_formatting_paragraph.VB_Description = "Макрос создан 01.11.2008 Customer" Attribute my_macros_for_formatting_paragraph.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.my_macros_for_formatting_paragraph" number = InputBox("Введіть номер абзацу який будете форматувати ", "Введення:", 0) If (number > ActiveDocument.Paragraphs.Count) Or (number < 0) _ Then MsgBox "Значення виходить за межі кількості абзаців": Exit Sub 'Alignment: вирівнювання абзацу num = InputBox("Введіть:" & vbCrLf & "1 для вирівнювання по правому краю" & vbCrLf & "2 для...